function CurDrv: Char;
var 
  s1: string;
  s2: Char;
begin
  GetDir(0,s1);
  s2     := s1[1];
  CurDrv := s2;
end; 